﻿Public Class frmWijzigenTekeningen

    Dim werknummer As String = My.Forms.FrmInlogscherm.CmbWerknummer.SelectedValue.ToString

    Private Sub frmWijzigenTekeningen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Docregdata2DataSet.Status' table. You can move, or remove it, as needed.
        Me.StatusTableAdapter.Fill(Me.Docregdata2DataSet.Status)
        'TODO: This line of code loads data into the 'Docregdata2DataSet.Datums' table. You can move, or remove it, as needed.
        Me.DatumsTableAdapter.Fill(Me.Docregdata2DataSet.Datums)
        'TODO: This line of code loads data into the 'Docregdata2DataSet.Tekeningen' table. You can move, or remove it, as needed.
        Dim werknummer As String = My.Forms.FrmInlogscherm.CmbWerknummer.SelectedValue.ToString
        Me.TekeningenTableAdapter.FillBy(Me.Docregdata2DataSet.Tekeningen, werknummer)
        'TODO: This line of code loads data into the 'Docregdata2DataSet.Bedrijven' table. You can move, or remove it, as needed.
        Me.BedrijvenTableAdapter.FillByBedrijven_werken(Me.Docregdata2DataSet.Bedrijven, werknummer)

    End Sub

    Public Sub load_new_rows_and_update_comboboxes()
        BedrijvenTableAdapter.Update(DocRegData2DataSet.Bedrijven)
        BedrijvenTableAdapter.FillByBedrijven_werken(Me.DocRegData2DataSet.Bedrijven, werknummer)

        BedrijvenBindingSource.DataSource = DocRegData2DataSet
        BedrijvenBindingSource.DataMember = "Bedrijven"

        FKTekeningenBedrijvenBindingSource.DataSource = BedrijvenBindingSource
        FKTekeningenBedrijvenBindingSource.DataMember = "FK_Tekeningen_Bedrijven"

        BedrijfsnaamComboBox.DataSource = BedrijvenBindingSource
        BedrijfsnaamComboBox.DisplayMember = "Bedrijfsnaam"
        BedrijfsnaamComboBox.ValueMember = "BedrijvenID"

        NaamComboBox.DataSource = FKTekeningenBedrijvenBindingSource
        NaamComboBox.DisplayMember = "Naam"
        NaamComboBox.ValueMember = "TekeningID"

    End Sub

    Private Sub BtnHoofdmenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHoofdmenu.Click

        Me.Visible = False
        My.Forms.FrmHoofdmenu.Visible = True

    End Sub

    Private Sub BtnWijzigGegevens_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnWijzigGegevens.Click

        Dim TekeningID As Integer = Me.NaamComboBox.SelectedValue
        Dim DatumID As Integer = Me.DatumComboBox.SelectedValue
        Dim StatusID As Integer = Me.StatusNaamComboBox.SelectedValue
        Dim BladnrNieuw As String = Me.TxtwijzBladnummer.Text
        Dim NaamNieuw As String = Me.TxtWijzNaam.Text
        Dim TekenkastNieuw As String = Me.TxtWijzKastnr.Text
        Dim Datumnieuw As Date
        Dim StatusNieuw As String = Me.CmdWijzStatus.Text

        'Wijzigen Bladnummer, Naam, Tekenkastnr from tabel Tekeningen
        Dim cmd1 As New SqlCommand
        Dim cmd2 As New SqlCommand
        Dim cmd3 As New SqlCommand
        Dim cmd4 As New SqlCommand
        Dim cmd5 As New SqlCommand

        If Me.TxtwijzBladnummer.Text = "" = False Then

            With cmd1
                .CommandType = CommandType.Text
                .CommandText = "Update Tekeningen SET Bladnummer = @BladnrNieuw Where TekeningID = @TekeningID"
                .Connection = New SqlConnection(My.Settings.Docregdata2ConnectionString)
                .Parameters.AddWithValue("@TekeningID", TekeningID)
                .Parameters.AddWithValue("@BladnrNieuw", BladnrNieuw)
                .Connection.Open()
                .ExecuteNonQuery()
            End With

        Else

        End If

        If Me.TxtWijzNaam.Text = "" = False Then

            With cmd2
                .CommandType = CommandType.Text
                .CommandText = "Update Tekeningen SET Naam = @NaamNieuw Where TekeningID = @TekeningID"
                .Connection = New SqlConnection(My.Settings.Docregdata2ConnectionString)
                .Parameters.AddWithValue("@TekeningID", TekeningID)
                .Parameters.AddWithValue("@NaamNieuw", NaamNieuw)
                .Connection.Open()
                .ExecuteNonQuery()
            End With

        Else

        End If

        If Me.TxtWijzKastnr.Text = "" = False Then

            With cmd3
                .CommandType = CommandType.Text
                .CommandText = "Update Tekeningen SET Tekenkastnr = @TekenkastnrNieuw Where TekeningID = @TekeningID"
                .Connection = New SqlConnection(My.Settings.Docregdata2ConnectionString)
                .Parameters.AddWithValue("@TekeningID", TekeningID)
                .Parameters.AddWithValue("@TekenkastnrNieuw", TekenkastNieuw)
                .Connection.Open()
                .ExecuteNonQuery()
            End With

        Else

        End If

        'Wijzig datum tekening

        If Me.TxtWijzDatum.Text = "" = False Then
            Datumnieuw = CDate(Me.TxtWijzDatum.Text)

            With cmd4
                .CommandType = CommandType.Text
                .CommandText = "Update Datums SET Datum = @DatumNieuw Where DatumID = @DatumID"
                .Connection = New SqlConnection(My.Settings.Docregdata2ConnectionString)
                .Parameters.AddWithValue("@DatumID", DatumID)
                .Parameters.AddWithValue("@DatumNieuw", Datumnieuw)
                .Connection.Open()
                .ExecuteNonQuery()
            End With

        Else

        End If

        'Wijzig status tekening
        If Me.CmdWijzStatus.Text = "" = False Then

            With cmd5
                .CommandType = CommandType.Text
                .CommandText = "Update Status SET Statusnaam = @StatusNieuw Where StatusID = @StatusID"
                .Connection = New SqlConnection(My.Settings.Docregdata2ConnectionString)
                .Parameters.AddWithValue("@StatusID", StatusID)
                .Parameters.AddWithValue("@StatusNieuw", StatusNieuw)
                .Connection.Open()
                .ExecuteNonQuery()
            End With

        Else

        End If


        TekeningenTableAdapter.Update(Docregdata2DataSet.Tekeningen)
        TekeningenTableAdapter.Fill(Docregdata2DataSet.Tekeningen)

        DatumsTableAdapter.Update(Docregdata2DataSet.Datums)
        DatumsTableAdapter.Fill(Docregdata2DataSet.Datums)

        StatusTableAdapter.Update(Docregdata2DataSet.Status)
        StatusTableAdapter.Fill(Docregdata2DataSet.Status)

        'Update menu verzonden tekeningen

        'renew data frmtekeningenlijst
        My.Forms.FrmTekeningenlijst.vullen_tekeningenlijst()

        'Renew dataview on frmVerzendbrief because of new data
        My.Forms.FrmVerzendbrief.objdatasetTekeningen.Clear()
        My.Forms.FrmVerzendbrief.vullen_datagridview()

    End Sub



End Class